home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / mac / allfiles / Moss / Vitra.dir / 00014_Script_UI Rollover Change Pointer < prev    next >
Text File  |  1999-03-01  |  1KB  |  49 lines
  1.  
  2.  
  3. property outcurs, incurs, incursSet, customImage, customMask, oldcursor
  4. property useCustom
  5.  
  6.  
  7. on translate_cursor me, setting, image, mask, custom
  8.   if custom then
  9.     set val = [ member image, member mask ]
  10.     return val
  11.   end if
  12.   return setting
  13. end
  14.  
  15.  
  16. --- 
  17.  
  18. on beginSprite me
  19.   set oldcursor = the cursor of sprite the spritenum of me
  20.   set val =  translate_cursor( me, the incursSet of me,customImage,customMask,useCustom )
  21.   set the cursor of sprite the spriteNum of me = val
  22.   
  23. end
  24.  
  25. on endsprite me
  26.   set the cursor of sprite the spriteNum of me = oldcursor
  27. end
  28.  
  29. on getPropertyDescriptionList
  30.   
  31.   set p_list = [ ¼
  32.      #incursSet: [ #comment:   "Pointer Image:", ¼
  33.                     #format:   #cursor, ¼
  34.                    #default:   1], ¼
  35.        #useCustom: [ #comment: "Use Custom Pointer:", ¼
  36.                     #format:   #boolean, ¼
  37.                    #default:    FALSE ], ¼
  38.   #customImage: [ #comment:   "Custom Image:", ¼
  39.                     #format:   #bitmap, ¼
  40.                    #default:    member 1 ], ¼
  41.     #customMask: [ #comment:   "Custom Mask:", ¼
  42.                     #format:   #bitmap, ¼
  43.                    #default:    member 1 ] ¼
  44.                  ]
  45.   return p_list 
  46.   
  47. end
  48.  
  49.